home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / AGSUOL10.ZIP / AGSUOL.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-10-01  |  6.4 KB  |  291 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     Integer  INTEGER007
  27.     Integer  TINTEGER008(6)
  28.     Integer  TINTEGER009(3)
  29.     String   STRING001
  30.     String   STRING002
  31.     String   STRING003
  32.     String   STRING004
  33.     String   TSTRING005(15)
  34.     String   TSTRING006(15)
  35.     String   TSTRING007(3)
  36.     String   STRING008
  37.     String   STRING009
  38.     String   STRING010
  39.     String   STRING011
  40.     String   STRING012
  41.     String   STRING013
  42.  
  43. ;------------------------------------------------------------------------------
  44.  
  45.     STRING002 = "AcaDe v1.02"
  46.     STRING003 = "/┤EGiS Corp Anti-Decompilation Engine. (C)1994 By Lone Runner/AGS"
  47.     TINTEGER009(1) = 1
  48.     TINTEGER009(2) = 9
  49.     TINTEGER009(3) = 15
  50.     INTEGER003 = 0
  51.     INTEGER004 = 0
  52.     RdUNet PcbNode()
  53.     WrUNet PcbNode(), "Q", UN_Name(), UN_City(), "USiNG AGS UNReAL 1LiNeR", " "
  54.     STRING004 = "■ ALE v2.O ■ AEGiS LightBar Engine ■ By Number Six / AGS ■"
  55.     FOpen 1, PPEPath() + "AGSUOL.CFG", 0, 0
  56.     FGet 1, STRING011
  57.     FGet 1, STRING008
  58.     FGet 1, STRING009
  59.     FGet 1, TSTRING007(0)
  60.     FGet 1, TSTRING007(1)
  61.     FGet 1, TSTRING007(2)
  62.     For INTEGER005 = 0 To 5
  63.         FGet 1, TINTEGER008(INTEGER005)
  64.     Next
  65.     FClose 1
  66.     DispFile PPEPath() + "AGSUOLMN.PCB", 0
  67.     FOpen 1, PPEPath() + "AGSUOL.DAT", 0, 2
  68.     For INTEGER005 = 1 To 15
  69.         FGet 1, TSTRING005(INTEGER005)
  70.         FGet 1, TSTRING006(INTEGER005)
  71.     Next
  72.     Gosub LABEL003
  73.     FClose 1
  74.     Gosub LABEL002
  75.     :LABEL001
  76.     STRING010 = Inkey()
  77.     If (((STRING010 == "LEFT") || (STRING010 == "4")) && (INTEGER003 > 0)) Then
  78.         INTEGER004 = INTEGER003
  79.         Dec INTEGER003
  80.         Gosub LABEL002
  81.     Endif
  82.     If (((STRING010 == "RIGHT") || (STRING010 == "6")) && (INTEGER003 < 2)) Then
  83.         INTEGER004 = INTEGER003
  84.         Inc INTEGER003
  85.         Gosub LABEL002
  86.     Endif
  87.     If (STRING010 <> Chr(13)) Goto LABEL001
  88.     Print "@POFF@"
  89.     If (INTEGER003 == 0) Then
  90.         Color 7
  91.         End
  92.     Endif
  93.     If (INTEGER003 == 1) Goto LABEL006
  94.     If (INTEGER003 == 2) Then
  95.         Gosub LABEL004
  96.         Gosub LABEL005
  97.         AnsiPos 1, 23
  98.         Wait
  99.         Gosub LABEL004
  100.         Gosub LABEL003
  101.     Endif
  102.     Goto LABEL001
  103.     :LABEL002
  104.     AnsiPos TINTEGER008(INTEGER004 * 2 + 1), TINTEGER008(INTEGER004 * 2)
  105.     Print STRING009
  106.     Print TSTRING007(INTEGER004)
  107.     AnsiPos TINTEGER008(INTEGER003 * 2 + 1), TINTEGER008(INTEGER003 * 2)
  108.     Print STRING008
  109.     Print TSTRING007(INTEGER003)
  110.     Return
  111.     :LABEL003
  112.     For INTEGER005 = 1 To 15
  113.         INTEGER002 = 40
  114.         INTEGER001 = INTEGER002 - Len(StripAtx(TSTRING005(INTEGER005))) / 2
  115.         AnsiPos INTEGER001 - 1, 3 + INTEGER005
  116.         Print STRING009 + "[" + STRING011 + TSTRING005(INTEGER005) + STRING009 + "]"
  117.     Next
  118.     Return
  119.     :LABEL004
  120.     Color 7
  121.     For INTEGER005 = 1 To 15
  122.         AnsiPos 3, 3 + INTEGER005
  123.         Print Space(75)
  124.     Next
  125.     Return
  126.     :LABEL005
  127.     For INTEGER005 = 1 To 15
  128.         INTEGER002 = 40
  129.         INTEGER001 = INTEGER002 - Len(StripAtx(TSTRING006(INTEGER005))) / 2
  130.         AnsiPos INTEGER001 - 1, 3 + INTEGER005
  131.         Print STRING009 + "[" + STRING011 + TSTRING006(INTEGER005) + STRING009 + "]"
  132.     Next
  133.     Return
  134.     :LABEL006
  135.     Print "@POFF@"
  136.     AnsiPos 1, 19
  137.     PrintLn "@X0F┌@X09┴@X01── ─── ─ ──   ── ──     ───   ───    ──       ─────  ───   ─ ──  ─── ───  ─@X09┴@X0F┐"
  138.     PrintLn "@X09│                                                                             │"
  139.     PrintLn "@X0F└@X09─@X01──  ─── ─── ──── ─── ─  ─── ─────  ───────   ──────────    ──  ────  ─ ── ─@X09─@X0F┘"
  140.     INTEGER007 = 73
  141.     BOOLEAN001 = 0
  142.     AnsiPos 3, 20
  143.     Gosub LABEL007
  144.     If (STRING013 <> "") Then
  145.         FOpen 1, PPEPath() + "AGSUOL.DAT", 1, 3
  146.         For INTEGER005 = 2 To 15
  147.             FPutLn 1, TSTRING005(INTEGER005)
  148.             FPutLn 1, TSTRING006(INTEGER005)
  149.         Next
  150.         GetUser
  151.         FPutLn 1, STRING013
  152.         FPutLn 1, "@X09■ @X01" + Mixed(U_Name()) + "@X09 ■ @X01" + U_City + "@X09 ■ @X01" + String(Date()) + "@X09 ■ @X01" + String(Time()) + "@X09 ■"
  153.         FClose 1
  154.     Endif
  155.     Print "@POFF@"
  156.     AnsiPos 1, 19
  157.     PrintLn "@X0F┌@X09┴@X01── ─── ─ ──   ── ──     ───   ───    ──       ─────  ───   ─ ──  ─── ───  ─@X09┴@X0F┐"
  158.     PrintLn "@X09│                @X01T@X09H@X0FaNK YoU FoR USiNG ThE UNReaL ONeLiNeR v1.o1                │"
  159.     PrintLn "@X0F└@X09─@X01──  ─── ─── ──── ─── ─  ─── ─────  ───────   ──────────    ──  ────  ─ ── ─@X09─@X0F┘"
  160.     End
  161.     :LABEL007
  162.     INTEGER006 = 0
  163.     Gosub LABEL011
  164.     STRING012 = ""
  165.     STRING013 = ""
  166.     :LABEL008
  167.     STRING012 = Inkey()
  168.     If (STRING012 == "") Then
  169.         Goto LABEL008
  170.     Endif
  171.     If (Len(STRING012) > 1) Goto LABEL008
  172.     If (STRING012 == Chr(13)) Goto LABEL010
  173.     If ((STRING012 <> Chr(8)) && (STRING012 <> Chr(13))) Then
  174.         If (INTEGER006 < INTEGER007) Then
  175.             If (BOOLEAN001) Goto LABEL009
  176.             If (STRING012 <> Chr(9)) Then
  177.                 STRING013 = STRING013 + STRING012
  178.                 Inc INTEGER006
  179.                 Gosub LABEL011
  180.                 If ("" == "") Print STRING012
  181.                 If ("" == "DOTS") Print "·"
  182.             Endif
  183.             :LABEL009
  184.             If (BOOLEAN001) Then
  185.                 If (STRING012 <> Chr(9)) Then
  186.                     STRING013 = STRING013 + STRING012
  187.                     Inc INTEGER006
  188.                     Gosub LABEL011
  189.                     If ("" == "") Print STRING012
  190.                     If ("" == "DOTS") Print "·"
  191.                 Endif
  192.             Endif
  193.         Endif
  194.     Endif
  195.     If ((STRING012 == Chr(8)) && (INTEGER006 > 0)) Then
  196.         STRING013 = Mid(STRING013, 1, INTEGER006 - 1)
  197.         Dec INTEGER006
  198.         Backup 1
  199.         Print " "
  200.         Backup 1
  201.     Endif
  202.     Goto LABEL008
  203.     :LABEL010
  204.     Return
  205.     :LABEL011
  206.     If (Mid(STRING013, INTEGER006 - 3, 1) == " ") Color TINTEGER009(3)
  207.     If (Mid(STRING013, INTEGER006 - 2, 1) == " ") Color TINTEGER009(2)
  208.     If (Mid(STRING013, INTEGER006 - 1, 1) == " ") Color TINTEGER009(1)
  209.     If (INTEGER006 == 1) Color TINTEGER009(1)
  210.     If (INTEGER006 == 2) Color TINTEGER009(2)
  211.     If (INTEGER006 == 3) Color TINTEGER009(3)
  212.     Return
  213.  
  214. ;------------------------------------------------------------------------------
  215. ;
  216. ; Usage report (before postprocessing)
  217. ;
  218. ; ■ Statements used :
  219. ;
  220. ;    2       End
  221. ;    1       Wait
  222. ;    8       Color 
  223. ;    32      Goto 
  224. ;    37      Let 
  225. ;    15      Print 
  226. ;    6       PrintLn 
  227. ;    33      If 
  228. ;    1       DispFile 
  229. ;    3       FOpen 
  230. ;    3       FClose 
  231. ;    9       FGet 
  232. ;    4       FPutLn 
  233. ;    1       GetUser
  234. ;    12      Gosub 
  235. ;    6       Return
  236. ;    3       Inc 
  237. ;    2       Dec 
  238. ;    1       RdUNet 
  239. ;    1       WrUNet 
  240. ;    9       AnsiPos 
  241. ;    2       Backup 
  242. ;
  243. ;
  244. ; ■ Functions used :
  245. ;
  246. ;    4       *
  247. ;    2       /
  248. ;    191     +
  249. ;    8       -
  250. ;    20      ==
  251. ;    6       <>
  252. ;    8       <
  253. ;    6       <=
  254. ;    3       >
  255. ;    12      >=
  256. ;    19      !
  257. ;    16      &&
  258. ;    8       ||
  259. ;    3       Len(
  260. ;    4       Mid()
  261. ;    1       Space()
  262. ;    132     Chr()
  263. ;    1       Date()
  264. ;    1       Time()
  265. ;    1       U_Name()
  266. ;    2       StripAtx()
  267. ;    2       Inkey()
  268. ;    2       String()
  269. ;    4       PPEPath()
  270. ;    2       PcbNode()
  271. ;    1       UN_Name()
  272. ;    1       UN_City()
  273. ;    1       Mixed()
  274. ;
  275. ;------------------------------------------------------------------------------
  276. ;
  277. ; Analysis flags : No flag
  278. ;
  279. ;------------------------------------------------------------------------------
  280. ;
  281. ; Postprocessing report
  282. ;
  283. ;    6       For/Next
  284. ;    0       While/EndWhile
  285. ;    12      If/Then or If/Then/Else
  286. ;    0       Select Case
  287. ;
  288. ;------------------------------------------------------------------------------
  289. ;                 AEGiS Corp - Break the routines, code against the machines!
  290. ;------------------------------------------------------------------------------
  291.